5 REM--AHOY!--MAY ISSUE--MEMORY MANAGEMENT--PROG PAGE 33
10 REM:MEMORY MANAEMENT TEST 1
20 IFPEEK(251)=GOTO90
30 PRINT"TEST 1"
40 A$="HELLO FROM TEST 1"
50 GOSUB20:GOSUB300
60 POKE49152,0:REM FOR VIC POKE 1024,0
70 POKE44,192:REM FDATA VIC PDATA44,4
80 LOAD"TEST 2",8
90 PRINTB$:GOSUB300
110 PRINT"BACK IN TEST 1"
120 GOSUB200:END
200 PRINTPEEK(51);PEEK(52);PEEK(55);PEEK(56)
210 PRINTPEEK(47);PEEK(48);PEEK(49);PEEK(50)
220 RETURN
300 PRINT"HIT A KEY"
310 GET C$:IF C$=""THEN310
320 RETURN